Public Class ModificarOrdenDeCompra
    Dim ADOrdenesDeCompra As New ADCono.OrdenesdeCompra
    Dim ADItemDeOC As New ADCono.ItemsDeOC

    Public Function ObtenerOrdenesDeCompraPendientes()
        Dim DS As New DataSet
        DS = ADOrdenesDeCompra.ObtenerPendientes
        Return DS
    End Function

    Public Function ObtenerItemsDeOCFiltrados(ByVal Cod_OC As Integer)
        Dim DS As New DataSet
        DS = ADItemDeOC.ObtenerFiltrados(Cod_OC)
        Return DS
    End Function

    Public Sub ModificarItemDeOC(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer, ByVal Ingresados As Integer)
        ADItemDeOC.Modificar(Cod_OC, Cod_Producto, Cantidad, Ingresados)
    End Sub

    Public Sub AgregarItemDeOC(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer)
        ADItemDeOC.Agregar(Cod_OC, Cod_Producto, Cantidad)
    End Sub

    Public Sub EliminarItemDeOC(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer)
        ADItemDeOC.Eliminar(Cod_OC, Cod_Producto)
    End Sub

    Public Sub EliminarOC(ByVal Cod_OC As Integer)
        ADOrdenesDeCompra.Eliminar(Cod_OC)
    End Sub

End Class
